#!/usr/bin/perl

foreach $i (1000 .. 4055)
{
print "wget http://poj.org/problem?id=", $i, " -O ./problem/$i.html\n";
}
